Voyager Presents CD-ROM's That Matter/Voyager Presents CD-ROM's That Matter.iso/pc/demos/beetwin/beet.dir/00056.ls

Text File | 1994-10-20 | 531 b | 38 lines

on enterFrame
  cursor(200)
end

on waitQT chan
  if the movieRate of sprite chan = 1 then
    go(the frame)
  end if
end

on waitSound chan
  if soundBusy(chan) = 1 then
    go(the frame)
  end if
end

on myWait theTicks
  set myTicks to theTicks + the ticks
  repeat while myTicks >= the ticks
    updateStage()
  end repeat
end

on waiting theTicks
  if theTicks > the timer then
    go(the frame)
  end if
end

on keyDown
  global autoPlaying
  set autoPlaying to 0
  sound stop 1
  sound stop 2
  unLoadCast()
  play done
end